home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / cmpnew / cmploc.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  18KB  |  831 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmploc.h"
  5. init_cmploc(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     VV[0]->s.s_stype=(short)stp_special;
  9.     (void)(putprop(VV[1],VV[2],VV[3]));
  10.     (void)(putprop(VV[4],VV[5],VV[3]));
  11.     (void)(putprop(VV[6],VV[7],VV[3]));
  12.     (void)(putprop(VV[8],VV[9],VV[3]));
  13.     (void)(putprop(VV[10],VV[11],VV[3]));
  14.     (void)(putprop(VV[12],VV[13],VV[3]));
  15.     (void)(putprop(VV[14],VV[15],VV[3]));
  16.     (void)(putprop(VV[16],VV[17],VV[3]));
  17.     (void)(putprop(VV[18],VV[19],VV[3]));
  18.     (void)(putprop(VV[20],VV[21],VV[3]));
  19.     (void)(putprop(VV[22],VV[23],VV[3]));
  20.     (void)(putprop(VV[24],VV[25],VV[3]));
  21.     (void)(putprop(VV[26],VV[27],VV[3]));
  22.     (void)(putprop(VV[28],VV[29],VV[3]));
  23.     MF(VV[41],L15,start,size,data);
  24.     MF(VV[3],L16,start,size,data);
  25.     MF(VV[56],L17,start,size,data);
  26.     MF(VV[57],L18,start,size,data);
  27.     MF(VV[13],L19,start,size,data);
  28.     MF(VV[7],L20,start,size,data);
  29.     MF(VV[9],L21,start,size,data);
  30.     MF(VV[11],L22,start,size,data);
  31.     MF(VV[2],L23,start,size,data);
  32.     MF(VV[5],L24,start,size,data);
  33.     MF(VV[17],L25,start,size,data);
  34.     MF(VV[58],L26,start,size,data);
  35.     MF(VV[15],L27,start,size,data);
  36.     MF(VV[21],L28,start,size,data);
  37.     MF(VV[59],L29,start,size,data);
  38.     MF(VV[19],L30,start,size,data);
  39.     MF(VV[25],L31,start,size,data);
  40.     MF(VV[60],L32,start,size,data);
  41.     MF(VV[23],L33,start,size,data);
  42.     MF(VV[29],L34,start,size,data);
  43.     MF(VV[61],L35,start,size,data);
  44.     MF(VV[27],L36,start,size,data);
  45.     vs_top=vs_base=base;
  46. }
  47. /*    function definition for SET-LOC    */
  48.  
  49. static L15()
  50. {    register object *base=vs_base;
  51.     register object *sup=base+VM3;
  52.     vs_reserve(VM3);
  53.     check_arg(1);
  54.     vs_top=sup;
  55. TTL:;
  56.     base[1]= Cnil;
  57.     if(!(symbol_value(VV[0])==VV[30])){
  58.     goto T16;}
  59.     base[2]= base[0];
  60.     vs_top=(vs_base=base+2)+1;
  61.     L17();
  62.     return;
  63. T16:;
  64.     if(!(symbol_value(VV[0])==VV[31])){
  65.     goto T20;}
  66.     if(!(type_of(base[0])==t_cons)){
  67.     goto T23;}
  68.     {object x= car(base[0]),V1= VV[32];
  69.     while(!endp(V1))
  70.     if(eql(x,V1->c.c_car)){
  71.     goto T27;
  72.     }else V1=V1->c.c_cdr;
  73.     goto T23;}
  74. T27:;
  75.     if((cadr(base[0]))==Cnil){
  76.     goto T23;}
  77.     princ_str("\n    (void)(",VV[33]);
  78.     base[2]= Ct;
  79.     base[3]= caddr(base[0]);
  80.     base[4]= cadddr(base[0]);
  81.     (void)simple_symlispcall_no_event(VV[62],base+2,3);
  82.     princ_str(");",VV[33]);
  83.     base[2]= Cnil;
  84.     vs_top=(vs_base=base+2)+1;
  85.     return;
  86. T23:;
  87.     if(!(type_of(base[0])==t_cons)){
  88.     goto T37;}
  89.     if(!(car(base[0])==VV[34])){
  90.     goto T37;}
  91.     princ_str("\n    (void)",VV[33]);
  92.     base[2]= base[0];
  93.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  94.     princ_char(59,VV[33]);
  95.     base[2]= Cnil;
  96.     vs_top=(vs_base=base+2)+1;
  97.     return;
  98. T37:;
  99.     base[2]= Cnil;
  100.     vs_top=(vs_base=base+2)+1;
  101.     return;
  102. T20:;
  103.     if(!(symbol_value(VV[0])==VV[35])){
  104.     goto T46;}
  105.     if(base[0]==VV[36]){
  106.     goto T49;}
  107.     base[2]= base[0];
  108.     vs_top=(vs_base=base+2)+1;
  109.     L18();
  110.     return;
  111. T49:;
  112.     base[2]= Cnil;
  113.     vs_top=(vs_base=base+2)+1;
  114.     return;
  115. T46:;
  116.     if(!(symbol_value(VV[0])==VV[37])){
  117.     goto T53;}
  118.     base[2]= base[0];
  119.     symlispcall_no_event(VV[64],base+2,1);
  120.     return;
  121. T53:;
  122.     if(!(symbol_value(VV[0])==VV[38])){
  123.     goto T57;}
  124.     base[2]= base[0];
  125.     symlispcall_no_event(VV[65],base+2,1);
  126.     return;
  127. T57:;
  128.     if(!(symbol_value(VV[0])==VV[39])){
  129.     goto T61;}
  130.     base[2]= base[0];
  131.     symlispcall_no_event(VV[66],base+2,1);
  132.     return;
  133. T61:;
  134.     if(!(symbol_value(VV[0])==VV[40])){
  135.     goto T65;}
  136.     base[2]= base[0];
  137.     symlispcall_no_event(VV[67],base+2,1);
  138.     return;
  139. T65:;
  140.     if(!(type_of(symbol_value(VV[0]))==t_cons)){
  141.     goto T68;}
  142.     if(type_of(car(symbol_value(VV[0])))==t_symbol){
  143.     goto T69;}
  144. T68:;
  145.     symlispcall_no_event(VV[68],base+2,0);
  146.     return;
  147. T69:;
  148.     base[1]= get(car(symbol_value(VV[0])),VV[41],Cnil);
  149.     if((base[1])==Cnil){
  150.     goto T74;}
  151.     base[2]= base[1];
  152.     base[3]= base[0];
  153.     {object V2;
  154.     V2= cdr(symbol_value(VV[0]));
  155.      vs_top=base+4;
  156.      while(!endp(V2))
  157.      {vs_push(car(V2));V2=cdr(V2);}
  158.     vs_base=base+3;}
  159.     super_funcall_no_event(base[2]);
  160.     return;
  161. T74:;
  162.     base[1]= get(car(symbol_value(VV[0])),VV[3],Cnil);
  163.     if((base[1])==Cnil){
  164.     goto T81;}
  165.     princ_str("\n    ",VV[33]);
  166.     base[2]= base[1];
  167.     {object V3;
  168.     V3= cdr(symbol_value(VV[0]));
  169.      vs_top=base+3;
  170.      while(!endp(V3))
  171.      {vs_push(car(V3));V3=cdr(V3);}
  172.     vs_base=base+3;}
  173.     super_funcall_no_event(base[2]);
  174.     vs_top=sup;
  175.     princ_str("= ",VV[33]);
  176.     base[2]= base[0];
  177.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  178.     princ_char(59,VV[33]);
  179.     base[2]= Cnil;
  180.     vs_top=(vs_base=base+2)+1;
  181.     return;
  182. T81:;
  183.     symlispcall_no_event(VV[68],base+2,0);
  184.     return;
  185. }
  186. /*    function definition for WT-LOC    */
  187.  
  188. static L16()
  189. {    register object *base=vs_base;
  190.     register object *sup=base+VM4;
  191.     vs_reserve(VM4);
  192.     check_arg(1);
  193.     vs_top=sup;
  194. TTL:;
  195.     if(!(base[0]==Cnil)){
  196.     goto T93;}
  197.     princ_str("Cnil",VV[33]);
  198.     base[1]= Cnil;
  199.     vs_top=(vs_base=base+1)+1;
  200.     return;
  201. T93:;
  202.     if(!(base[0]==Ct)){
  203.     goto T97;}
  204.     princ_str("Ct",VV[33]);
  205.     base[1]= Cnil;
  206.     vs_top=(vs_base=base+1)+1;
  207.     return;
  208. T97:;
  209.     if(!(base[0]==VV[36])){
  210.     goto T101;}
  211.     princ_str("vs_base[0]",VV[33]);
  212.     base[1]= Cnil;
  213.     vs_top=(vs_base=base+1)+1;
  214.     return;
  215. T101:;
  216.     if(!(type_of(base[0])==t_cons)){
  217.     goto T104;}
  218.     if(type_of(car(base[0]))==t_symbol){
  219.     goto T105;}
  220. T104:;
  221.     symlispcall_no_event(VV[68],base+1,0);
  222.     return;
  223. T105:;
  224.     base[1]= get(car(base[0]),VV[3],Cnil);
  225.     if((base[1])!=Cnil){
  226.     goto T110;}
  227.     (void)simple_symlispcall_no_event(VV[68],base+2,0);
  228. T110:;
  229.     base[2]= base[1];
  230.     {object V4;
  231.     V4= cdr(base[0]);
  232.      vs_top=base+3;
  233.      while(!endp(V4))
  234.      {vs_push(car(V4));V4=cdr(V4);}
  235.     vs_base=base+3;}
  236.     super_funcall_no_event(base[2]);
  237.     return;
  238. }
  239. /*    function definition for SET-RETURN    */
  240.  
  241. static L17()
  242. {    register object *base=vs_base;
  243.     register object *sup=base+VM5;
  244.     vs_reserve(VM5);
  245.     check_arg(1);
  246.     vs_top=sup;
  247. TTL:;
  248.     base[1]= (base[0]==VV[36]?Ct:Cnil);
  249.     if((base[1])==Cnil){
  250.     goto T117;}
  251.     vs_top=(vs_base=base+1)+1;
  252.     return;
  253. T117:;
  254.     if(!(type_of(base[0])==t_cons)){
  255.     goto T120;}
  256.     if(!(car(base[0])==VV[42])){
  257.     goto T120;}
  258.     if(!(number_compare(caadr(base[0]),symbol_value(VV[43]))==0)){
  259.     goto T120;}
  260.     princ_str("\n    vs_top=(vs_base=base+",VV[33]);
  261.     base[2]= cdadr(base[0]);
  262.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  263.     princ_str(")+1;",VV[33]);
  264.     setq(VV[44],Ct);
  265.     base[2]= Ct;
  266.     vs_top=(vs_base=base+2)+1;
  267.     return;
  268. T120:;
  269.     if(!(type_of(base[0])==t_cons)){
  270.     goto T133;}
  271.     if(!(car(base[0])==VV[45])){
  272.     goto T133;}
  273.     if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[46])){
  274.     goto T133;}
  275.     if((structure_ref(cadr(base[0]),VV[45],3))!=Cnil){
  276.     goto T133;}
  277.     if(!(number_compare(car(structure_ref(cadr(base[0]),VV[45],2)),symbol_value(VV[43]))==0)){
  278.     goto T133;}
  279.     princ_str("\n    vs_top=(vs_base=base+",VV[33]);
  280.     base[2]= cdr(structure_ref(cadr(base[0]),VV[45],2));
  281.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  282.     princ_str(")+1;",VV[33]);
  283.     setq(VV[44],Ct);
  284.     base[2]= Ct;
  285.     vs_top=(vs_base=base+2)+1;
  286.     return;
  287. T133:;
  288.     base[2]= base[0];
  289.     vs_top=(vs_base=base+2)+1;
  290.     L18();
  291.     return;
  292. }
  293. /*    function definition for SET-TOP    */
  294.  
  295. static L18()
  296. {    register object *base=vs_base;
  297.     register object *sup=base+VM6;
  298.     vs_reserve(VM6);
  299.     bds_check;
  300.     check_arg(1);
  301.     vs_top=sup;
  302. TTL:;
  303.     bds_bind(VV[47],symbol_value(VV[47]));
  304.     princ_str("\n    ",VV[33]);
  305.     base[2]=symbol_function(VV[69]);
  306.     base[3]= simple_symlispcall_no_event(VV[70],base+4,0);
  307.     (void)simple_lispcall_no_event(base+2,1);
  308.     princ_str("= ",VV[33]);
  309.     base[2]= base[0];
  310.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  311.     princ_char(59,VV[33]);
  312.     princ_str("\n    vs_top=(vs_base=base+",VV[33]);
  313.     base[2]= one_minus((VV[47]->s.s_dbind));
  314.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  315.     princ_str(")+1;",VV[33]);
  316.     setq(VV[44],Ct);
  317.     base[2]= Ct;
  318.     vs_top=(vs_base=base+2)+1;
  319.     bds_unwind1;
  320.     return;
  321. }
  322. /*    function definition for WT-VS-BASE    */
  323.  
  324. static L19()
  325. {    register object *base=vs_base;
  326.     register object *sup=base+VM7;
  327.     vs_reserve(VM7);
  328.     check_arg(1);
  329.     vs_top=sup;
  330. TTL:;
  331.     princ_str("vs_base[",VV[33]);
  332.     base[1]= base[0];
  333.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  334.     princ_char(93,VV[33]);
  335.     base[1]= Cnil;
  336.     vs_top=(vs_base=base+1)+1;
  337.     return;
  338. }
  339. /*    function definition for WT-CAR    */
  340.  
  341. static L20()
  342. {    register object *base=vs_base;
  343.     register object *sup=base+VM8;
  344.     vs_reserve(VM8);
  345.     check_arg(1);
  346.     vs_top=sup;
  347. TTL:;
  348.     princ_str("(V",VV[33]);
  349.     base[1]= base[0];
  350.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  351.     princ_str("->c.c_car)",VV[33]);
  352.     base[1]= Cnil;
  353.     vs_top=(vs_base=base+1)+1;
  354.     return;
  355. }
  356. /*    function definition for WT-CDR    */
  357.  
  358. static L21()
  359. {    register object *base=vs_base;
  360.     register object *sup=base+VM9;
  361.     vs_reserve(VM9);
  362.     check_arg(1);
  363.     vs_top=sup;
  364. TTL:;
  365.     princ_str("(V",VV[33]);
  366.     base[1]= base[0];
  367.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  368.     princ_str("->c.c_cdr)",VV[33]);
  369.     base[1]= Cnil;
  370.     vs_top=(vs_base=base+1)+1;
  371.     return;
  372. }
  373. /*    function definition for WT-CADR    */
  374.  
  375. static L22()
  376. {    register object *base=vs_base;
  377.     register object *sup=base+VM10;
  378.     vs_reserve(VM10);
  379.     check_arg(1);
  380.     vs_top=sup;
  381. TTL:;
  382.     princ_str("(V",VV[33]);
  383.     base[1]= base[0];
  384.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  385.     princ_str("->c.c_cdr->c.c_car)",VV[33]);
  386.     base[1]= Cnil;
  387.     vs_top=(vs_base=base+1)+1;
  388.     return;
  389. }
  390. /*    function definition for WT-CVAR    */
  391.  
  392. static L23()
  393. {    register object *base=vs_base;
  394.     register object *sup=base+VM11;
  395.     vs_reserve(VM11);
  396.     check_arg(1);
  397.     vs_top=sup;
  398. TTL:;
  399.     princ_char(86,VV[33]);
  400.     base[1]= base[0];
  401.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  402.     base[1]= Cnil;
  403.     vs_top=(vs_base=base+1)+1;
  404.     return;
  405. }
  406. /*    function definition for WT-VV    */
  407.  
  408. static L24()
  409. {    register object *base=vs_base;
  410.     register object *sup=base+VM12;
  411.     vs_reserve(VM12);
  412.     check_arg(1);
  413.     vs_top=sup;
  414. TTL:;
  415.     princ_str("VV[",VV[33]);
  416.     base[1]= base[0];
  417.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  418.     princ_char(93,VV[33]);
  419.     base[1]= Cnil;
  420.     vs_top=(vs_base=base+1)+1;
  421.     return;
  422. }
  423. /*    function definition for WT-FIXNUM-LOC    */
  424.  
  425. static L25()
  426. {    register object *base=vs_base;
  427.     register object *sup=base+VM13;
  428.     vs_reserve(VM13);
  429.     check_arg(1);
  430.     vs_top=sup;
  431. TTL:;
  432.     if(!(type_of(base[0])==t_cons)){
  433.     goto T188;}
  434.     if(!(car(base[0])==VV[45])){
  435.     goto T188;}
  436.     if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[48])){
  437.     goto T188;}
  438.     princ_char(86,VV[33]);
  439.     base[1]= structure_ref(cadr(base[0]),VV[45],4);
  440.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  441.     base[1]= Cnil;
  442.     vs_top=(vs_base=base+1)+1;
  443.     return;
  444. T188:;
  445.     if(!(type_of(base[0])==t_cons)){
  446.     goto T198;}
  447.     if(!(car(base[0])==VV[49])){
  448.     goto T198;}
  449.     base[1]= caddr(base[0]);
  450.     base[2]= cadddr(base[0]);
  451.     symlispcall_no_event(VV[71],base+1,2);
  452.     return;
  453. T198:;
  454.     if(!(type_of(base[0])==t_cons)){
  455.     goto T205;}
  456.     if(!(car(base[0])==VV[14])){
  457.     goto T205;}
  458.     base[1]= caddr(base[0]);
  459.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  460.     base[1]= Cnil;
  461.     vs_top=(vs_base=base+1)+1;
  462.     return;
  463. T205:;
  464.     princ_str("fix(",VV[33]);
  465.     base[1]= base[0];
  466.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  467.     princ_char(41,VV[33]);
  468.     base[1]= Cnil;
  469.     vs_top=(vs_base=base+1)+1;
  470.     return;
  471. }
  472. /*    function definition for FIXNUM-LOC-P    */
  473.  
  474. static L26()
  475. {    register object *base=vs_base;
  476.     register object *sup=base+VM14;
  477.     vs_reserve(VM14);
  478.     check_arg(1);
  479.     vs_top=sup;
  480. TTL:;
  481.     if(type_of(base[0])==t_cons){
  482.     goto T215;}
  483.     base[1]= Cnil;
  484.     vs_top=(vs_base=base+1)+1;
  485.     return;
  486. T215:;
  487.     if(car(base[0])==VV[45]){
  488.     goto T219;}
  489.     base[1]= Cnil;
  490.     goto T218;
  491. T219:;
  492.     base[1]= (structure_ref(cadr(base[0]),VV[45],1)==VV[48]?Ct:Cnil);
  493. T218:;
  494.     if(base[1]==Cnil)goto T217;
  495.     vs_top=(vs_base=base+1)+1;
  496.     return;
  497. T217:;
  498.     if(!(car(base[0])==VV[49])){
  499.     goto T221;}
  500.     base[2]= Ct;
  501.     vs_top=(vs_base=base+2)+1;
  502.     return;
  503. T221:;
  504.     base[2]= (car(base[0])==VV[14]?Ct:Cnil);
  505.     vs_top=(vs_base=base+2)+1;
  506.     return;
  507. }
  508. /*    function definition for WT-FIXNUM-VALUE    */
  509.  
  510. static L27()
  511. {    register object *base=vs_base;
  512.     register object *sup=base+VM15;
  513.     vs_reserve(VM15);
  514.     check_arg(2);
  515.     vs_top=sup;
  516. TTL:;
  517.     princ_str("VV[",VV[33]);
  518.     base[2]= base[0];
  519.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  520.     princ_char(93,VV[33]);
  521.     base[2]= Cnil;
  522.     vs_top=(vs_base=base+2)+1;
  523.     return;
  524. }
  525. /*    function definition for WT-CHARACTER-LOC    */
  526.  
  527. static L28()
  528. {    register object *base=vs_base;
  529.     register object *sup=base+VM16;
  530.     vs_reserve(VM16);
  531.     check_arg(1);
  532.     vs_top=sup;
  533. TTL:;
  534.     if(!(type_of(base[0])==t_cons)){
  535.     goto T228;}
  536.     if(!(car(base[0])==VV[45])){
  537.     goto T228;}
  538.     if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[50])){
  539.     goto T228;}
  540.     princ_char(86,VV[33]);
  541.     base[1]= structure_ref(cadr(base[0]),VV[45],4);
  542.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  543.     base[1]= Cnil;
  544.     vs_top=(vs_base=base+1)+1;
  545.     return;
  546. T228:;
  547.     if(!(type_of(base[0])==t_cons)){
  548.     goto T238;}
  549.     if(!(car(base[0])==VV[51])){
  550.     goto T238;}
  551.     base[1]= caddr(base[0]);
  552.     base[2]= cadddr(base[0]);
  553.     symlispcall_no_event(VV[71],base+1,2);
  554.     return;
  555. T238:;
  556.     if(!(type_of(base[0])==t_cons)){
  557.     goto T245;}
  558.     if(!(car(base[0])==VV[18])){
  559.     goto T245;}
  560.     base[1]= caddr(base[0]);
  561.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  562.     base[1]= Cnil;
  563.     vs_top=(vs_base=base+1)+1;
  564.     return;
  565. T245:;
  566.     princ_str("char_code(",VV[33]);
  567.     base[1]= base[0];
  568.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  569.     princ_char(41,VV[33]);
  570.     base[1]= Cnil;
  571.     vs_top=(vs_base=base+1)+1;
  572.     return;
  573. }
  574. /*    function definition for CHARACTER-LOC-P    */
  575.  
  576. static L29()
  577. {    register object *base=vs_base;
  578.     register object *sup=base+VM17;
  579.     vs_reserve(VM17);
  580.     check_arg(1);
  581.     vs_top=sup;
  582. TTL:;
  583.     if(type_of(base[0])==t_cons){
  584.     goto T255;}
  585.     base[1]= Cnil;
  586.     vs_top=(vs_base=base+1)+1;
  587.     return;
  588. T255:;
  589.     if(car(base[0])==VV[45]){
  590.     goto T259;}
  591.     base[1]= Cnil;
  592.     goto T258;
  593. T259:;
  594.     base[1]= (structure_ref(cadr(base[0]),VV[45],1)==VV[50]?Ct:Cnil);
  595. T258:;
  596.     if(base[1]==Cnil)goto T257;
  597.     vs_top=(vs_base=base+1)+1;
  598.     return;
  599. T257:;
  600.     if(!(car(base[0])==VV[51])){
  601.     goto T261;}
  602.     base[2]= Ct;
  603.     vs_top=(vs_base=base+2)+1;
  604.     return;
  605. T261:;
  606.     base[2]= (car(base[0])==VV[18]?Ct:Cnil);
  607.     vs_top=(vs_base=base+2)+1;
  608.     return;
  609. }
  610. /*    function definition for WT-CHARACTER-VALUE    */
  611.  
  612. static L30()
  613. {    register object *base=vs_base;
  614.     register object *sup=base+VM18;
  615.     vs_reserve(VM18);
  616.     check_arg(2);
  617.     vs_top=sup;
  618. TTL:;
  619.     princ_str("VV[",VV[33]);
  620.     base[2]= base[0];
  621.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  622.     princ_char(93,VV[33]);
  623.     base[2]= Cnil;
  624.     vs_top=(vs_base=base+2)+1;
  625.     return;
  626. }
  627. /*    function definition for WT-LONG-FLOAT-LOC    */
  628.  
  629. static L31()
  630. {    register object *base=vs_base;
  631.     register object *sup=base+VM19;
  632.     vs_reserve(VM19);
  633.     check_arg(1);
  634.     vs_top=sup;
  635. TTL:;
  636.     if(!(type_of(base[0])==t_cons)){
  637.     goto T268;}
  638.     if(!(car(base[0])==VV[45])){
  639.     goto T268;}
  640.     if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[52])){
  641.     goto T268;}
  642.     princ_char(86,VV[33]);
  643.     base[1]= structure_ref(cadr(base[0]),VV[45],4);
  644.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  645.     base[1]= Cnil;
  646.     vs_top=(vs_base=base+1)+1;
  647.     return;
  648. T268:;
  649.     if(!(type_of(base[0])==t_cons)){
  650.     goto T278;}
  651.     if(!(car(base[0])==VV[53])){
  652.     goto T278;}
  653.     base[1]= caddr(base[0]);
  654.     base[2]= cadddr(base[0]);
  655.     symlispcall_no_event(VV[71],base+1,2);
  656.     return;
  657. T278:;
  658.     if(!(type_of(base[0])==t_cons)){
  659.     goto T285;}
  660.     if(!(car(base[0])==VV[22])){
  661.     goto T285;}
  662.     base[1]= caddr(base[0]);
  663.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  664.     base[1]= Cnil;
  665.     vs_top=(vs_base=base+1)+1;
  666.     return;
  667. T285:;
  668.     princ_str("lf(",VV[33]);
  669.     base[1]= base[0];
  670.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  671.     princ_char(41,VV[33]);
  672.     base[1]= Cnil;
  673.     vs_top=(vs_base=base+1)+1;
  674.     return;
  675. }
  676. /*    function definition for LONG-FLOAT-LOC-P    */
  677.  
  678. static L32()
  679. {    register object *base=vs_base;
  680.     register object *sup=base+VM20;
  681.     vs_reserve(VM20);
  682.     check_arg(1);
  683.     vs_top=sup;
  684. TTL:;
  685.     if(type_of(base[0])==t_cons){
  686.     goto T295;}
  687.     base[1]= Cnil;
  688.     vs_top=(vs_base=base+1)+1;
  689.     return;
  690. T295:;
  691.     if(car(base[0])==VV[45]){
  692.     goto T299;}
  693.     base[1]= Cnil;
  694.     goto T298;
  695. T299:;
  696.     base[1]= (structure_ref(cadr(base[0]),VV[45],1)==VV[52]?Ct:Cnil);
  697. T298:;
  698.     if(base[1]==Cnil)goto T297;
  699.     vs_top=(vs_base=base+1)+1;
  700.     return;
  701. T297:;
  702.     if(!(car(base[0])==VV[53])){
  703.     goto T301;}
  704.     base[2]= Ct;
  705.     vs_top=(vs_base=base+2)+1;
  706.     return;
  707. T301:;
  708.     base[2]= (car(base[0])==VV[22]?Ct:Cnil);
  709.     vs_top=(vs_base=base+2)+1;
  710.     return;
  711. }
  712. /*    function definition for WT-LONG-FLOAT-VALUE    */
  713.  
  714. static L33()
  715. {    register object *base=vs_base;
  716.     register object *sup=base+VM21;
  717.     vs_reserve(VM21);
  718.     check_arg(2);
  719.     vs_top=sup;
  720. TTL:;
  721.     princ_str("VV[",VV[33]);
  722.     base[2]= base[0];
  723.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  724.     princ_char(93,VV[33]);
  725.     base[2]= Cnil;
  726.     vs_top=(vs_base=base+2)+1;
  727.     return;
  728. }
  729. /*    function definition for WT-SHORT-FLOAT-LOC    */
  730.  
  731. static L34()
  732. {    register object *base=vs_base;
  733.     register object *sup=base+VM22;
  734.     vs_reserve(VM22);
  735.     check_arg(1);
  736.     vs_top=sup;
  737. TTL:;
  738.     if(!(type_of(base[0])==t_cons)){
  739.     goto T308;}
  740.     if(!(car(base[0])==VV[45])){
  741.     goto T308;}
  742.     if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[54])){
  743.     goto T308;}
  744.     princ_char(86,VV[33]);
  745.     base[1]= structure_ref(cadr(base[0]),VV[45],4);
  746.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  747.     base[1]= Cnil;
  748.     vs_top=(vs_base=base+1)+1;
  749.     return;
  750. T308:;
  751.     if(!(type_of(base[0])==t_cons)){
  752.     goto T318;}
  753.     if(!(car(base[0])==VV[55])){
  754.     goto T318;}
  755.     base[1]= caddr(base[0]);
  756.     base[2]= cadddr(base[0]);
  757.     symlispcall_no_event(VV[71],base+1,2);
  758.     return;
  759. T318:;
  760.     if(!(type_of(base[0])==t_cons)){
  761.     goto T325;}
  762.     if(!(car(base[0])==VV[26])){
  763.     goto T325;}
  764.     base[1]= caddr(base[0]);
  765.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  766.     base[1]= Cnil;
  767.     vs_top=(vs_base=base+1)+1;
  768.     return;
  769. T325:;
  770.     princ_str("sf(",VV[33]);
  771.     base[1]= base[0];
  772.     (void)simple_symlispcall_no_event(VV[63],base+1,1);
  773.     princ_char(41,VV[33]);
  774.     base[1]= Cnil;
  775.     vs_top=(vs_base=base+1)+1;
  776.     return;
  777. }
  778. /*    function definition for SHORT-FLOAT-LOC-P    */
  779.  
  780. static L35()
  781. {    register object *base=vs_base;
  782.     register object *sup=base+VM23;
  783.     vs_reserve(VM23);
  784.     check_arg(1);
  785.     vs_top=sup;
  786. TTL:;
  787.     if(type_of(base[0])==t_cons){
  788.     goto T335;}
  789.     base[1]= Cnil;
  790.     vs_top=(vs_base=base+1)+1;
  791.     return;
  792. T335:;
  793.     if(car(base[0])==VV[45]){
  794.     goto T339;}
  795.     base[1]= Cnil;
  796.     goto T338;
  797. T339:;
  798.     base[1]= (structure_ref(cadr(base[0]),VV[45],1)==VV[54]?Ct:Cnil);
  799. T338:;
  800.     if(base[1]==Cnil)goto T337;
  801.     vs_top=(vs_base=base+1)+1;
  802.     return;
  803. T337:;
  804.     if(!(car(base[0])==VV[55])){
  805.     goto T341;}
  806.     base[2]= Ct;
  807.     vs_top=(vs_base=base+2)+1;
  808.     return;
  809. T341:;
  810.     base[2]= (car(base[0])==VV[26]?Ct:Cnil);
  811.     vs_top=(vs_base=base+2)+1;
  812.     return;
  813. }
  814. /*    function definition for WT-SHORT-FLOAT-VALUE    */
  815.  
  816. static L36()
  817. {    register object *base=vs_base;
  818.     register object *sup=base+VM24;
  819.     vs_reserve(VM24);
  820.     check_arg(2);
  821.     vs_top=sup;
  822. TTL:;
  823.     princ_str("VV[",VV[33]);
  824.     base[2]= base[0];
  825.     (void)simple_symlispcall_no_event(VV[63],base+2,1);
  826.     princ_char(93,VV[33]);
  827.     base[2]= Cnil;
  828.     vs_top=(vs_base=base+2)+1;
  829.     return;
  830. }
  831.